inherited FRM_PesquisaUnidadeMedida: TFRM_PesquisaUnidadeMedida
  Left = 830
  Top = 258
  ClientHeight = 362
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    Height = 362
    inherited edtPesquisar: TAdvEdit
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Top = 80
      Columns = <
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o da Unidade Medida'
          Width = 232
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ABREVIACAO'
          Title.Alignment = taCenter
          Title.Caption = 'Abrevia'#231#227'o'
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ESTADO_FISICO'
          Title.Alignment = taCenter
          Title.Caption = 'Estado F'#237'sico'
          Width = 103
          Visible = True
        end>
    end
    inherited pnlRodape: TPanel
      Top = 335
      inherited btnConfirmar: TAdvGlowButton
        Left = 247
      end
    end
    inherited pnlTitulo: TPanel
      Caption = 'Pesquisar Lista de Unidades de Medida'
    end
  end
  inherited sqlPesquisar: TSQLQuery
    SQL.Strings = (
      'select'
      '    u.cod_unidade,'
      '    u.descricao,'
      '    u.abreviacao,'
      '    u.estado_fisico,'
      '    u.op_conversao,'
      '    u.valor_correspondente'
      'from unidade_medida u'
      '')
  end
  inherited dspPesquisar: TDataSetProvider
    Top = 160
  end
  inherited cdsPesquisar: TClientDataSet
    Top = 160
    object cdsPesquisarCOD_UNIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_UNIDADE'
      Required = True
    end
    object cdsPesquisarDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsPesquisarABREVIACAO: TStringField
      Alignment = taCenter
      FieldName = 'ABREVIACAO'
      Required = True
      Size = 5
    end
    object cdsPesquisarESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      Size = 15
    end
    object cdsPesquisarOP_CONVERSAO: TStringField
      FieldName = 'OP_CONVERSAO'
      Size = 15
    end
    object cdsPesquisarVALOR_CORRESPONDENTE: TIntegerField
      FieldName = 'VALOR_CORRESPONDENTE'
      Required = True
    end
  end
  inherited dsPesquisar: TDataSource
    Top = 160
  end
  object sqlPesquisarUnidForma: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_forma'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    u.cod_unidade,'
      '    u.descricao,'
      '    u.abreviacao,'
      '    u.estado_fisico,'
      '    u.op_conversao,'
      '    u.valor_correspondente'
      'from unidade_medida u'
      
        'left join f_forma_unidade_medida b on (b.lig_cod_unidade = u.cod' +
        '_unidade)'
      'where b.lig_cod_forma = :cod_forma'
      'order by u.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 8
    Top = 176
  end
end
